home *** CD-ROM | disk | FTP | other *** search
/ 9-Digit Zip Code Directory / 9-Digit Zip Code Directory (American Business Information) (ABIZIP-12).ISO / z4src.zip / Z4POF.C < prev    next >
C/C++ Source or Header  |  1995-07-29  |  9KB  |  311 lines
  1. //----------------------------------------------------------------------------
  2. //                            MODULE DESCRIPTION
  3. //
  4. //  Module:    z4pof.c
  5. //   Title:    ZIP+4 Engine
  6. //  Notice:    John M. Weeder
  7. //                 Copyright (c) 1993. All rights reserved.
  8. //             This module contains proprietary information and should be 
  9. //                treated as confidential.
  10. //
  11. //----------------------------------------------------------------------------
  12. //                           MAINTENANCE HISTORY
  13. //
  14. // $Workfile$
  15. // $Revision$
  16. //   $Author$
  17. //     $Date$
  18. //      $Log$    
  19. //
  20. //----------------------------------------------------------------------------
  21. //                             MODULE NARRATIVE
  22. //
  23. //
  24. //    This module contains code to maintain a list of POFs which are being
  25. //        excluded from the current build.
  26. //
  27. //    The code in this module should be written entirely in C. 
  28. //    Do not use any C++ constructs.
  29. //
  30. //    This module is portable to:
  31. //        DOS 3.X+
  32. //        MS Windows 3.X+
  33. //        OS/2 2.X+
  34. //        OS/2 2.0 PM
  35. //        SCO UNIX.
  36. //
  37. //    The following compilers are supported:
  38. //        MSC 6.0A
  39. //        MSC/C++ 7.0
  40. //        Borland C++ 3.1 for DOS
  41. //        Borland C++ 1.0 for OS/2 2.X
  42. //        SCO UNIX cc
  43. //
  44. //----------------------------------------------------------------------------
  45. #include <z4.h>
  46.  
  47.  
  48. //----------------------------------------------------------------------------
  49. //   Description:    Sort routine used by qsort to sort an array of pointers
  50. //                          to strings.
  51. //    Parameters:    see qsort()
  52. //       Returns:    see qsort()
  53. //----------------------------------------------------------------------------
  54. static int __pofsort__(const void *pv1, const void *pv2)
  55. {
  56.     return memcmp(pv1, pv2, MAX_FINANCE_BCD);
  57. }
  58.  
  59.  
  60. //----------------------------------------------------------------------------
  61. //   Description:    
  62. //    Parameters:
  63. //       Returns:    TRUE if successful.
  64. //----------------------------------------------------------------------------
  65. BOOL FN_E Z4PofAdd(PZ4_PF_TBL ppof, PCSZ pcszFinance)
  66. {
  67.     LONG lEntry = Z4PofFind(ppof, pcszFinance);
  68.  
  69.     Assert(ppof);
  70.     if (lEntry < 0)
  71.         {
  72.         BYTE bPof[MAX_FINANCE_BCD];
  73.         if (ppof->lSize >= ppof->lMax)
  74.             {
  75.             Error("POF table overflow.");
  76.             return FALSE;                        
  77.             }                                        // Add to table
  78.         stra2b(bPof, MAX_FINANCE_BCD, pcszFinance, MAX_FINANCE);
  79.         memcpy(ppof->abPof[(SIZET)ppof->lSize], bPof, MAX_FINANCE_BCD);
  80.         ppof->lSize++;                            // Sort
  81.         qsort(ppof->abPof, (SIZET)ppof->lSize, MAX_FINANCE_BCD, __pofsort__);
  82.         }
  83.     return TRUE;
  84. }
  85.  
  86.  
  87. //----------------------------------------------------------------------------
  88. //   Description:    
  89. //    Parameters:
  90. //       Returns:    TRUE if successful.
  91. //----------------------------------------------------------------------------
  92. VOID FN_E Z4PofClear(PZ4_PF_TBL ppof)
  93. {
  94.     Assert(ppof);
  95.     ppof->lSize = 0;
  96.     return ;
  97. }
  98.  
  99.  
  100. //----------------------------------------------------------------------------
  101. //   Description:    
  102. //    Parameters:
  103. //       Returns:    TRUE if successful.
  104. //----------------------------------------------------------------------------
  105. VOID FN_E Z4PofCopy(PZ4_PF_TBL ppof1, PZ4_PF_TBL ppof2, LONG lMax)
  106. {
  107.     LONG l;
  108.     Assert(ppof1 && ppof2);
  109.  
  110.     if (lMax < 0)
  111.         lMax = ppof2->lSize;
  112.  
  113.     for (l = 0; l < MIN(lMax, ppof2->lSize); ++l)
  114.         {
  115.         CHAR szFinance[MAX_FINANCE+1];
  116.  
  117.         strb2a(ppof2->abPof[(SIZET)l], MAX_FINANCE_BCD, szFinance, MAX_FINANCE, TRUE);
  118.         szFinance[MAX_FINANCE] = '\0';
  119.         Z4PofAdd(ppof1, szFinance);
  120.         }
  121.     return ;
  122. }
  123.  
  124.  
  125. //----------------------------------------------------------------------------
  126. //   Description:    
  127. //    Parameters:
  128. //       Returns:    TRUE if successful.
  129. //----------------------------------------------------------------------------
  130. BOOL FN_E Z4PofCreate(PZ4_PF_TBL _FAR_ *pppof, LONG lMax)
  131. {
  132.     SIZET cb;
  133.  
  134.     Assert(pppof);
  135. #if OS_DOS
  136.     Assert(lMax * (LONG)MAX_FINANCE_BCD < (LONG)MAX_SIZET);
  137. #endif
  138.  
  139.     cb = sizeof(Z4_PF_TBL) + (SIZET)((lMax - 1) * MAX_FINANCE_BCD);
  140.     *pppof = MemAllocZero(cb);
  141.     if (*pppof == NULL)
  142.         return ErrorNoMem();
  143.  
  144.     (*pppof)->lMax = lMax;
  145.     return TRUE;
  146. }
  147.  
  148.  
  149. //----------------------------------------------------------------------------
  150. //   Description:    
  151. //    Parameters:
  152. //       Returns:    TRUE if successful.
  153. //----------------------------------------------------------------------------
  154. VOID FN_E Z4PofDelete(PZ4_PF_TBL ppof, LONG lDelete)
  155. {
  156.     SIZET cb;
  157.  
  158.     Assert(ppof);
  159.  
  160.     if (lDelete > ppof->lSize)
  161.         lDelete = ppof->lSize;
  162.  
  163.     cb = (SIZET)((ppof->lSize - lDelete) * MAX_FINANCE_BCD);
  164.     if (cb)
  165.         memcpy(ppof->abPof[0], ppof->abPof[(SIZET)lDelete], cb);
  166.  
  167.     ppof->lSize -= lDelete;
  168.     return ;
  169. }
  170.  
  171.  
  172. //----------------------------------------------------------------------------
  173. //   Description:    
  174. //    Parameters:
  175. //       Returns:    TRUE if successful.
  176. //----------------------------------------------------------------------------
  177. VOID FN_E Z4PofDestroy(PZ4_PF_TBL ppof)
  178. {
  179.     if (ppof)
  180.         MemFree(ppof);
  181.     return ;
  182. }
  183.  
  184.  
  185. //----------------------------------------------------------------------------
  186. //   Description:    Find a finance number in the POF table
  187. //    Parameters:
  188. //       Returns:    Offset of entry or -1
  189. //----------------------------------------------------------------------------
  190. LONG FN_E Z4PofFind(PZ4_PF_TBL ppof, PCSZ pcszFinance)
  191. {
  192.     BYTE bPof[MAX_FINANCE_BCD];
  193.     PBYTE pb;
  194.  
  195.     Assert(ppof);
  196.     if (ppof->lSize == 0)
  197.         return -1L;
  198.  
  199.     stra2b(bPof, MAX_FINANCE_BCD, pcszFinance, MAX_FINANCE);
  200.     pb = bsearch(bPof, ppof->abPof, (SIZET)ppof->lSize, MAX_FINANCE_BCD, __pofsort__);
  201.     if (pb == NULL)
  202.         return -1L;
  203.  
  204.     return (LONG)((pb - (PBYTE)ppof->abPof) / MAX_FINANCE_BCD);
  205. }
  206.  
  207.  
  208. //----------------------------------------------------------------------------
  209. //   Description:    
  210. //    Parameters:
  211. //       Returns:    TRUE if successful.
  212. //----------------------------------------------------------------------------
  213. BOOL FN_E Z4PofRead(PZ4_PF_TBL ppof, PCSZ pcszFile)
  214. {
  215.     CHAR szName[MAX_PATH];
  216.     FLAG16 fs = FL_OPEN|FL_READWRITE|FL_DENYREADWRITE|FL_BINARY;
  217.     HF hf;
  218.     LONG lSize;
  219.     SIZET cb;
  220.  
  221.     Assert(ppof && pcszFile);
  222.     strcpy(szName, pcszFile);
  223.     Z4PofClear(ppof);
  224.     if (!FnameQualify(szName, NULL, EnvGet("DATA"), 0))
  225.         return FALSE;
  226.     if (!FnameIsFile(szName))
  227.         return TRUE;
  228.     if (!FileOpen(&hf, szName, fs, NULL))
  229.         return FALSE;
  230.     if (!FileRead(hf, &lSize, sizeof(lSize), 0L))
  231.         {
  232.         FileClose(hf);
  233.         return FALSE;
  234.         }
  235.     Assert(lSize >= 0);
  236.     Assert(lSize <= ppof->lMax);
  237.     cb = (SIZET)(lSize * MAX_FINANCE_BCD);
  238.     if (cb && !FileRead(hf, ppof->abPof, cb, -1L))
  239.         {             
  240.         FileClose(hf);
  241.         return FALSE;
  242.         }
  243.     ppof->lSize = lSize;
  244.     FileClose(hf);
  245.     return TRUE;
  246. }
  247.  
  248.  
  249. //----------------------------------------------------------------------------
  250. //   Description:    
  251. //    Parameters:
  252. //       Returns:    
  253. //----------------------------------------------------------------------------
  254. VOID FN_E Z4PofShow(PZ4_PF_TBL ppof)
  255. {
  256.     LONG i, j;
  257.  
  258.     Assert(ppof);
  259.     Output("%ld Entries (%ld max)\n", ppof->lSize, ppof->lMax);
  260.     for (i = 0; i < ppof->lSize; )
  261.         {
  262.         Output("%5ld:", i);
  263.         for (j = 0; j < 10 && i < ppof->lSize; i++, j++)
  264.             {
  265.             CHAR szFinance[MAX_FINANCE+1];
  266.  
  267.             strb2a(ppof->abPof[(SIZET)i], MAX_FINANCE_BCD, szFinance, MAX_FINANCE, TRUE);
  268.             szFinance[MAX_FINANCE] = '\0';
  269.             Output(" %6s", szFinance);
  270.             }
  271.         Output("\n");
  272.         }
  273.     Output("\n");
  274.     return ;
  275. }
  276.  
  277.  
  278. //----------------------------------------------------------------------------
  279. //   Description:    
  280. //    Parameters:
  281. //       Returns:    TRUE if successful.
  282. //----------------------------------------------------------------------------
  283. BOOL FN_E Z4PofWrite(PZ4_PF_TBL ppof, PCSZ pcszFile)
  284. {
  285.     CHAR szName[MAX_PATH];
  286.     FLAG16 fs = FL_CREATE|FL_TRUNCATE|FL_READWRITE|FL_DENYREADWRITE|FL_BINARY;
  287.     HF hf;
  288.     SIZET cb;
  289.  
  290.  
  291.     Assert(ppof && pcszFile);
  292.     strcpy(szName, pcszFile);
  293.     if (!FnameQualify(szName, NULL, EnvGet("DATA"), 0))
  294.         return FALSE;
  295.     if (!FileOpen(&hf, szName, fs, NULL))
  296.         return FALSE;
  297.  
  298.     cb = (SIZET)(ppof->lSize * MAX_FINANCE_BCD);
  299.     if (!FileWrite(hf, &ppof->lSize, sizeof(ppof->lSize), 0L)
  300.     || (cb && !FileWrite(hf, ppof->abPof, cb, -1L)))
  301.         {
  302.         FileClose(hf);
  303.         return FALSE;
  304.         }
  305.     FileClose(hf);
  306.     return TRUE;
  307. }
  308. //----------------------------------------------------------------------------
  309. //------------------------------- End of File --------------------------------
  310. //----------------------------------------------------------------------------
  311.